home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbpictxt.dxr / 00025_copy icon.ls < prev    next >
Encoding:
Text File  |  2000-01-27  |  747 b   |  35 lines
  1. property ancestor, MinXLoc, pCursor
  2. global gDBPicttextVarList
  3.  
  4. on new me, buttonName, castName, xSprite, xLoc, descendant
  5.   ancestor = new(script("generic Button"), buttonName, castName, xSprite, xLoc, me)
  6.   MinXLoc = getAt(xLoc, 1)
  7.   MyObj = getaProp(gDBPicttextVarList, GetObjProp())
  8.   pCursor = GetPointingCursor(MyObj)
  9.   return me
  10. end
  11.  
  12. on performFunction me
  13.   tell the stage
  14.     playSFX(5)
  15.   end tell
  16.   TextCopy()
  17.   return me
  18. end
  19.  
  20. on enable me
  21.   enable(ancestor)
  22.   set the cursor of sprite the pChannel of me to pCursor
  23. end
  24.  
  25. on disable me
  26.   disable(ancestor)
  27.   set the cursor of sprite the pChannel of me to -1
  28. end
  29.  
  30. on buttonLoc me, size
  31.   set the locH of sprite the pChannel of me to getAt([MinXLoc, 517], size)
  32.   disable(me)
  33.   return me
  34. end
  35.